home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 2 / AACD 2.iso / AACD / Magazine / UsingPDF / GhostScript / source / gs5.10 / append_l.com < prev    next >
Encoding:
Text File  |  1997-11-13  |  681 b   |  20 lines
  1. $ Verif = F$Verify(0)
  2. $ ! OpenVMS command file to emulate behavior of:
  3. $ !
  4. $ !      Appending a string to the end of a new or existing file
  5. $ !
  6. $ OPEN="OPEN"
  7. $ WRITE="WRITE"
  8. $ CLOSE="CLOSE"
  9. $ IF F$SEARCH("''P1'") .EQS. "" THEN OPEN/WRITE TEXT_FILE 'P1'
  10. $ IF F$SEARCH("''P1'") .NES. "" THEN OPEN/APPEND TEXT_FILE 'P1'
  11. $ IF P2 .NES. "" THEN WRITE TEXT_FILE "''P2'"
  12. $ IF P3 .NES. "" THEN WRITE TEXT_FILE "''P3'"
  13. $ IF P4 .NES. "" THEN WRITE TEXT_FILE "''P4'"
  14. $ IF P5 .NES. "" THEN WRITE TEXT_FILE "''P5'"
  15. $ IF P6 .NES. "" THEN WRITE TEXT_FILE "''P6'"
  16. $ IF P7 .NES. "" THEN WRITE TEXT_FILE "''P7'"
  17. $ IF P8 .NES. "" THEN WRITE TEXT_FILE "''P8'"
  18. $ CLOSE TEXT_FILE
  19. $ xxx = F$Verify(Verif)
  20.